home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 44 / demos / starlite.bas < prev   
Encoding:
BASIC Source File  |  1986-08-15  |  512 b   |  20 lines
  1. 5     RANDOMIZE 0
  2. 10    CLEARW 2:FULLW 2:COLOR 1,1,1:FILL 0,0
  3. 11    ?"  Program by Kurty Bond ":?
  4. 12    x=2
  5. 15    COLOR 1,0,C
  6. 20    LINEF 300,0,X,120:LINEF X,120,X,135
  7. 28    OCT=INT(RND(1)*8):TON=INT(RND(1)*12)
  8. 29    Q=INT(RND(1)*600):W=INT(RND(1)*135)
  9. 30    LINEF Q,W,Q+1,W
  10. 31    SOUND 1,12,TON,OCT,0
  11. 32    X=X+1
  12. 35    C=C+1
  13. 40    IF X>600 THEN X=0:CAM=1
  14. 44    IF CAM=1 THEN 47
  15. 45    IF C>9 THEN C=0
  16. 46    GOTO 15
  17. 47    X=X+1:IF X>600 THEN CAM=0:X=2
  18. 48    IF C>3  THEN C=0
  19. 50    GOTO 15
  20. ə||||